home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)hi.d64 / slide-jjgg (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  62 lines
  1. 1 REM BORDER COLOR CHANGES:
  2. 2 REM POKE 4355,1 TO DISABLE                  POKE 4355,0 TO ENABLE
  3. 3 POKE53281,00:POKE53280,11:PRINT"[147]"CHR$(142)
  4. 4 PRINT"[149]","[157][157][157][157][164][164][164][164][164][164][164][164][164][164][164] [152][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][149]"
  5. 5 PRINT,"[157][157][157][157][165][154]BOZ/WAYNE[149][167] [158][182]JJ/GG SLIDESHOW[146][181]"
  6. 6 PRINT,"[149][157][157][157][157][163][163][163][163][163][163][163][163][163][163][163] [152][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][151]"
  7. 7 PRINT"     BUTTERFIELD/ONDA/ZAMARA/SCHMIDT"
  8. 8 PRINT,,"[157][157][157][157]JAN 1987"
  9. 9 GOSUB58
  10. 10 POKE56,90:CLR
  11. 11 SYS3916
  12. 12 PRINT"[152]            LOADING DIRECTORY [153]"
  13. 13 PRINT,"[157][157]PRESS <SHIFT/LOCK> NOW FOR"
  14. 14 PRINT,"  CONTINUOUS DISPLAY"
  15. 15 A$="ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQABCD
  16. 16 A$[178]A$[170]A$[170]A$[170]"ABCDEFGHIJKLMNOPQABCDEFGHIJKLMNOPQAB"
  17. 17 [134]NM$(40)
  18. 18 F[178]0:T[178]18:S[178]1:[159]15,8,15:[159]1,8,2,"#"
  19. 19 [152]15,"U1:"2;0;T;S
  20. 20 [158]896
  21. 21 T[178][198]([200](A$,1)):S[178][198]([202](A$,2,1))
  22. 22 [129]I[178]1[164]8:P[178]16
  23. 23 TY[178](([198]([202](A$,I[172]32[171]32[170]3,1))[175]131)[171]128)[175]3:[139]TY[179][177]2[167]30
  24. 24 [139][200](([202](A$,I[172]32[171]32[170]6,P)),2)[178]"JJ"[167]27
  25. 25 [139][200](([202](A$,I[172]32[171]32[170]6,P)),2)[178]"GG"[167]27
  26. 26 [137]30
  27. 27 [139][201](([202](A$,I[172]32[171]32[170]6,P)),1)[178][199](160)[167]P[178]P[171]1:[137]27
  28. 28 NM$(F)[178]([202](A$,I[172]32[171]32[170]6,P))
  29. 29 F[178]F[170]1
  30. 30 [130]I:[139]T[178]18[167]19
  31. 31 F[178]F[171]1:[160]1:[160]15:Z[178][184](0)
  32. 32 [139]F$[179][177]""[167]37
  33. 33 [153]"     USING FASTLOAD OR SIMILARPOKE[CONTYVERIFY-CONTNPOKE]PRINT?"
  34. 34 [146]198,1:[161]F$
  35. 35 [139]F$[178]"(null)"[167]F$[178]"Y
  36. 36 FL=(ABS(F$="Y"))*2000
  37. 37 FORI=0TOF
  38. 38 OPEN15,8,15
  39. 39 KL=LEN(NM$(I)):POKE583,KL:FORK=1TOKL:POKE(584+K),ASC(MID$(NM$(I),K,255))
  40. 40 NEXT
  41. 41 IFLEFT$(NM$(I),2)="JJ"THENSYS3922:SYS3925
  42. 42 IFLEFT$(NM$(I),2)="GG"THENSYS3922:SYS3928
  43. 43 GOSUB53
  44. 44 FORJ=1TOFL:NEXT:NEXT
  45. 45 IFPEEK(653)THEN37
  46. 46 WAIT198,1:GETP$
  47. 47 PRINT"[147]":SYS3919
  48. 48 PRINT"[153]"," DISPLAY SAME [146] (Y/N)?"
  49. 49 WAIT198,1:GETP$:IFP$="Y"THEN37
  50. 50 PRINT""," ANOTHER DISK [146] (Y/N)?[152]":PRINT"    INSERT NEW ";
  51. 51 PRINT"DISK BEFORE ANSWERING[153]":WAIT198,1:GETP$:IFP$="Y"THEN18
  52. 52 END
  53. 53 INPUT#15,E,E$,E1,E2
  54. 54 IFE=0THENCLOSE15:RETURN
  55. 55 PRINT" DISK ERROR ":PRINT" "E$" ":PRINT" PRESS A KEY[145][145][145]"
  56. 56 CLOSE15:SYS3919:WAIT198,1:GETP$:RETURN
  57. 57 END
  58. 58 FORI=896TO933:READJ:POKEI,J:NEXTI
  59. 59 RETURN
  60. 60 DATA 160,2,177,45,153,137,.,200,192,6,208,246,162,1,32,198,255,32,228,255
  61. 61 DATA 164,142,145,140,200,240,8,234,234,132,142,196,139,208,238,76,204,255
  62.